home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / sellmor2.zip / INVOICE1.RPT < prev    next >
Text File  |  1992-07-10  |  2KB  |  46 lines
  1. *#store .t. #to debug_on
  2. #@  9,30 #say boldon+"STATEMENT OF SUPPLY"+boldoff
  3. #@ 14,1  #say dtoc(invoice->date)
  4. #@ 18,1  #say trim(clients->salutation)+" "+trim(clients->fname)+" "+trim(clients->lname)
  5. #if ""#trim(clients->title)
  6. #@ fmrow+1,1  #say clients->title
  7. #endif
  8. #@ fmrow+1,1  #say clients->company
  9. #@ fmrow+1,1  #say clients->add1
  10. #if ""#trim(clients->add2)
  11. #@ fmrow+1,1  #say clients->add2
  12. #endif
  13. #@ fmrow+1,1  #say TRIM(clients->city)+", "+clients->state+"  "+clients->zip
  14.  
  15. #@ 28,1  #say "Your request, as listed under, has been despatched:"
  16. #@ 30,1  #say ""
  17.  
  18. #store invoice->invoice #to minvoice
  19. #store 1         #to mpage
  20. #store 0         #to ttl1
  21. #select events
  22. #seek minvoice
  23.  
  24. #doWHILE events->inv_num=minvoice .and. .not. eof()
  25.    #@ fmrow+1,1 #say tran(hours,"9999") + " copy @ " + tran(rate,"99999.99") + " " + descrip
  26.    #store ttl1 + hours * rate #to ttl1
  27.    #skip 1
  28.    #IF FMRow >= 41 .and. events->inv_num=minvoice .and. .not. eof()
  29.     #FORMPRINT
  30.     #EJECT
  31.     #FORMCLEAR 31, 66
  32.     #store mpage+1 #to mpage
  33.     #@ 30,1 #say ""
  34.    #ENDIF
  35. #enddo
  36. #select invoice
  37. #@ 46,1 #say "Total:   " + tran(ttl1,"99999999.99") + " Statement No " + minvoice
  38. #@ 48,1 #say "** This is not an invoice.  You will be invoiced later.**"
  39. #@ 50,1 #say "Enclosed is our current product and price list for your perusal."
  40. #@ 52,1 #say "Thank you for purchasing an Asset Control Technology product."
  41. #@ 57,1 #say "R Gerke"
  42. #@ 58,1 #say "Manager"
  43. #@ 59,1 #say "Asset Control Technology"
  44. #formprint
  45. #eject
  46.